home *** CD-ROM | disk | FTP | other *** search
- on 1:START {
- if ($version < 5.7) echo $colour(Info) -tsi2 *** Error! You need mIRC 5.7 or greater to use ircN 7.24!
- else echo $colour(Info) -tsi2 Thank you for downloading ircN 7.24. Before you connect, please type $+ $colour(Highlight) $+ /install $+ to install...
- }
- alias install dialog -m ircN.install ircN.install
- dialog ircN.install {
- title "ircN Installation"
- size -1 -1 320 160
- button "", 1, 0 0 0 0, cancel hide
- text "Please be patient as ircN's script files are loaded.", 2, 0 5 320 22, center
- text "Be sure to check http://www.ircN.org/ for any patches available!", 3, 0 30 320 22, center
- text "Any questions or comments? Email me at quietust@ircN.org", 4, 0 55 320 22, center
- text "or visit us in #ircN on EFnet.", 5, 0 80 320 22, center
- text "", 6, 0 138 320 22, center
- box "", 10, 10 100 300 33
- radio "", 11, 16 113 13 13, disabled
- radio "", 12, 32 113 13 13, disabled
- radio "", 13, 48 113 13 13, disabled
- radio "", 14, 64 113 13 13, disabled
- radio "", 15, 80 113 13 13, disabled
- radio "", 16, 96 113 13 13, disabled
- radio "", 17, 112 113 13 13, disabled
- radio "", 18, 128 113 13 13, disabled
- radio "", 19, 144 113 13 13, disabled
- radio "", 20, 160 113 13 13, disabled
- radio "", 21, 176 113 13 13, disabled
- radio "", 22, 192 113 13 13, disabled
- radio "", 23, 208 113 13 13, disabled
- radio "", 24, 224 113 13 13, disabled
- radio "", 25, 240 113 13 13, disabled
- radio "", 26, 256 113 13 13, disabled
- radio "", 27, 272 113 13 13, disabled
- radio "", 28, 288 113 13 13, disabled
- }
- on 1:DIALOG:ircN.install:init:* { ircN.install $dname 1 }
- alias -l ircN.install {
- if (($2 > 0) && ($2 < 19)) did -c $1 $calc($2 + 10)
- if ($2 == 1) {
- .load -a channel.als
- .load -a query.als
- .load -a client.als
- }
- elseif ($2 == 2) {
- .load -a stats.als
- .load -a toggles.als
- .load -a identfrs.als
- }
- elseif ($2 == 3) {
- .load -a bckgrnd.als
- .load -a nukenab.als
- .load -a userlist.als
- }
- elseif ($2 == 4) {
- .load -ps spopup.pop
- .load -pc cpopup.pop
- .load -pq qpopup.pop
- }
- elseif ($2 == 5) {
- .load -pn npopup.pop
- .load -pm mpopup.pop
- }
- elseif ($2 == 6) {
- .load -ru users.mrc
- .load -rv vars.mrc
- }
- elseif ($2 == 7) {
- set %firstuse $true
- .load -rs events.mrc
- .load -rs events2.mrc
- .load -rs ctcps.mrc
- }
- elseif ($2 == 8) {
- .load -rs raw.mrc
- .load -rs raw2.mrc
- .load -rs raw3.mrc
- }
- elseif ($2 == 9) {
- .load -rs itelnet.mrc
- .load -rs utils.mrc
- .load -rs addon2.mrc
- }
- elseif ($2 == 10) {
- .load -rs themes.mrc
- .load -rs idraw.mrc
- .load -rs dialogs.mrc
- }
- elseif ($2 == 11) {
- .load -rs ircNgui1.mrc
- .load -rs ircNgui2.mrc
- .load -rs ucentral.mrc
- }
- elseif ($2 == 12) {
- .load -rs usersum.mrc
- .load -rs maxtime.mrc
- .load -rs notes.mrc
- }
- elseif ($2 == 13) {
- if ($exists(ircndata.ini) == $false) write -c ircndata.ini
- if ($exists(users.ini) == $false) write -c users.ini
- if ($exists(bans.ini) == $false) write -c bans.ini
- }
- elseif ($2 == 14) {
- if ($exists(seen.ini) == $false) write -c seen.ini
- if ($exists($td(msg.txt)) == $false) write -c $td(msg.txt)
- if ($exists($td(onjoin.txt)) == $false) write -c $td(onjoin.txt)
- }
- elseif ($2 == 15) {
- if ($exists($td(page.txt)) == $false) write -c $td(page.txt)
- if ($exists($td(settings.txt)) == $false) write -c $td(settings.txt)
- if ($exists($td(cmotd.txt)) == $false) {
- write $td(cmotd.txt) Welcome to the %iver Partyline (c) 1999 The Quietust (quietust@ircN.org)
- write $td(cmotd.txt) MOTD File has NOT been edited.
- }
- }
- elseif ($2 == 16) {
- set %reldate (2000/03/17 22.00)
- set %firstuse $true
- }
- elseif ($2 == 17) {
- set %iver ircN 7.24
- set %ver ircN 7.24 + 7.0
- }
- elseif ($2 == 18) {
- did -r $1 2
- did -ra $1 3 $strip(%iver) for mIRC $version
- did -ra $1 4 Copyright ⌐ 1999 The Quietust
- did -ra $1 5 All rights reserved.
- did -ra $1 6 Installer by The Quietust
- .timer 1 5 dialog -x $1
- .timer 1 6 .unload -rs $script
- .timer 1 7 .remove $script
- }
- else return
- .timer -m 1 250 ircN.install $1 $calc($2 + 1)
- }
-